REPL C->REC_ORIGIN WITH REC,C->DATE_CUR WITH DATE(),C->PAT_FILCOD WITH A->PAT_FILCOD,C->PAT_NAME WITH A->PAT_NAME
REPL C->PAT_F_NAME WITH A->PAT_F_NAME,C->PAT_M_INIT WITH A->PAT_M_INIT,C->PAT_DOB WITH A->PAT_DOB,C->PAT_NATIO WITH A->PAT_NATIO
REPL C->PAT_SEX WITH A->PAT_SEX,C->BLOOD_GRP WITH A->BLOOD_GRP,C->BLOOD_RHE WITH A->BLOOD_RHE,C->HOM_ADD WITH A->HOM_ADD
REPL C->HOM_CITY WITH A->HOM_CITY,C->HOM_COUNT WITH A->HOM_COUNT,C->HOM_TEL WITH A->HOM_TEL,C->JOB_POSIT WITH A->JOB_POSIT,C->JOB_CORP WITH A->JOB_CORP
REPL C->JOB_CRPCOD WITH A->JOB_CRPCOD,C->JOB_ADD1 WITH A->JOB_ADD1,C->JOB_ADD2 WITH A->JOB_ADD2,C->JOB_CITY WITH A->JOB_CITY
REPL C->JOB_COUNT WITH A->JOB_COUNT,C->JOB_TEL1 WITH A->JOB_TEL1,C->HEALTHLINE WITH A->HEALTHLINE,C->HL_PERIOD WITH A->HL_PERIOD
REPL C->HL_START WITH A->HL_START,C->HL_END WITH A->HL_END,C->HL_DENT WITH A->HL_DENT,C->HL_FEE WITH A->HL_FEE
REPL C->AEA_MEMBER WITH A->AEA_MEMBER,C->AEA_PROGR  WITH A->AEA_PROGR,C->AEA_ENDATE WITH A->AEA_ENDATE,C->AEASOS_PER WITH A->AEASOS_PER
REPL C->AEASOS_FAM WITH A->AEASOS_FAM,c->fam_relper with a->fam_relper,C->FAM_PERCOD WITH A->FAM_PERCOD,C->PAT_CODCRP WITH A->PAT_CODCRP
REPL C->PAT_CODCRE WITH A->PAT_CODCRE,C->PAT_CODDAT WITH A->PAT_CODDAT,C->PAT_CODTYP WITH A->PAT_CODTYP
REPL C->DATE_APP WITH A->DAT_APP,C->HOUR_APP WITH A->HOUR_APP,C->DOC_COD_AP WITH A->DR_CODE,C->DOC_NAM_AP WITH A->DR_APP

** 7/12/99 - Dickson 
  REPL C->JOB_TEL3 WITH A->JOB_TEL3
**

IF PATNAT='JAPANESE'
   REPL C->PAT_JAPAN WITH .T.
ENDIF
IF CMS
   REPL C->PAT_CMS WITH .T.
   REPL C->CMS_EDAT WITH INSVAL
ENDIF

RETURN
